home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / MLTUTOR.SDA / THE GOOSE (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.5 KB  |  47 lines
  1. 1 X$="[153]":B$=" ":R$="":O$="[146]":G$=O$+B$+R$:A$="000":Z$=A$:CX=15
  2. 2 IO$="   ":FORT=0TO12:BL$=BL$+IO$:NEXT:TE=65520:DIMA$(99):DIMI$(9):FORT=0TO9
  3. 3 READI$(T):NEXT:PRINT"[147]"X$"[145][145][153][176][178][178][178][178][178][178][178][178][178][174] [176][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][174] [159][176][178][178][178][178][178][174]"
  4. 4 PRINT"[153]ACC  PC I/O CURRENT INSTRUCTION[159] OPERAND":POKE53280,11:POKE53281,11
  5. 5 Y$="[155]":FORT=1TO36:Y$=Y$+"":NEXT:FORR=0TO99:A$(R)=A$:GOSUB11:NEXT:R=0
  6. 6 PRINTX$R$"[159]"BL$:PRINT"[215]ELCOME TO [158][164][164][164][164][164][164][164][164][164][164][164][157][157][157][157][157][157][157][157][157][157][157][158] [212][200][197] [199][207][207][211][197] "
  7. 7 PRINT"[159] Y [146] FOR INSTRUCTION SET":PRINT"ANY KEY BOOTS THE GOOSE"X$"[152]"
  8. 8 GOSUB10:FORT=0TO9:PRINTBL$"[145]":ON-(I$<>"Y")GOTO9:PRINTI$(T);
  9. 9 PRINTLEFT$(X$,-(T=9)):NEXT:A$(0)="801":A$(1)="[195]99":GOTO14
  10. 10 POKE198,0:WAIT197,64,64:GETI$:RETURN
  11. 11 R%=R/10:S=R-10*R%:PRINTLEFT$(X$,11-R%)LEFT$(Y$,1+4*S);:IFR=ADTHENPRINTR$"[159]";
  12. 12 IFR=PTHENPRINTR$"";
  13. 13 PRINTA$(R):RETURN
  14. 14 P=P+F:OP=VAL(LEFT$(A$(P),1)):AD=VAL(RIGHT$(A$(P),2)):F=1:PRINTX$R$A$G$;
  15. 15 PRINTRIGHT$(Z$+MID$(STR$(P),2),3)G$IO$G$""A$(P)MID$(I$(OP),4,19)"[159] "AD"[157] "
  16. 16 R=AS:GOSUB11:IFPS<>ASTHENR=PS:GOSUB11
  17. 17 R=P:IFR<>PSTHENPS=R:GOSUB11
  18. 18 R=AD:IFR<>ASTHENAS=R:GOSUB11
  19. 19 WAIT197,64:ONOP+1GOSUB20,22,23,24,27,28,29,30,32,37:GOTO14
  20. 20 IFAD=0THENPRINT"[159]":POKE198,1:POKE631,19:END:DATA"0XX [194][207][207][212] XX; [197][206][196] IF 00"
  21. 21 FORR=1TOAD:READA$(R):GOSUB11:NEXT:P=0:R=0:RETURN
  22. 22 A$=A$(AD):RETURN:DATA "1XX [204][207][193][196]  ACCUMULATOR FROM XX"
  23. 23 A$(AD)=A$:RETURN:DATA"2XX [211][212][207][210][197] ACCUMULATOR AT XX"
  24. 24 AC=VAL(A$)+VAL(A$(AD)):DATA"3XX [193][196][196] TO ACCUMULATOR FROM XX"
  25. 25 IFAC>999ORAC<-99THENAC=AC+1000*(AC>999)-100*(AC<-99):GOTO25
  26. 26 A$=RIGHT$(Z$+MID$(STR$(ABS(AC)),2),3+(AC<0)):A$=LEFT$("-",-(AC<0))+A$:RETURN
  27. 27 AC=VAL(A$)-VAL(A$(AD)):GOTO25:DATA"4XX [211][213][194][212][210][193][195][212] CONTENTS OF XX"
  28. 28 P=AD:F=0:RETURN:DATA"5XX [202][213][205][208] UNCONDITIONAL TO XX"
  29. 29 IFVAL(A$)<>0THENRETURN:DATA"6XX [194][210][193][206][195][200] IF ZERO TO XX"
  30. 30 P=P+(P-AD)*(OP=6):F=-(OP=7):IFVAL(A$)>=0THENRETURN
  31. 31 P=P+(P-AD)*(OP=7):F=-(OP=6):RETURN:DATA"7XX [194][210][193][206][195][200] IF MINUS TO XX"
  32. 32 PRINTX$"   [157][157][157]";:IO$="":DATA"8XX [210][197][193][196]  I/0 PORT TO XX"
  33. 33 GOSUB10:IN=ASC(I$+CHR$(0)):IFIN<32ORIN>95ORIN=34GOTO33
  34. 34 PRINTI$;:IO$=IO$+I$:ON-(LEN(IO$)<3)GOTO33:PRINT:ON-(VAL(IO$)>999)GOTO32
  35. 35 PRINT"[155] [198]1 [146] TO ENTER,  [198]3 [146] TO CORRECT":GOSUB10:PRINT"[145]"BL$"[145]"
  36. 36 ON-(I$="[134]")GOTO32:ON-(I$<>"[133]")GOTO35:A$(AD)=IO$:RETURN
  37. 37 IO$=A$(AD):POKE781,CX:POKE782,CY:DATA"9XX [208][210][201][206][212] CONTENTS OF XX TO I/O PORT"
  38. 38 POKE783,0:SYSTEM:PRINT""IO$;:POKE783,1:SYSTEM:CY=PEEK(782)
  39. 39 CX=PEEK(781)-(CY>36):CY=CY+CY*(CY>36):CX=CX+10*(CX=25):RETURN
  40. 40 DATA 999,101,408,201,409,600,501,001,909,...,ED.,TUN,"AY ",.ST,T..,GUS,"AU "
  41. 41 DATA "UP "," SO",IAL,SER," OF",STE," TA",R A," FO",541,A 1,"IN ","SE ",GOO
  42. 42 DATA "HE ",K T,COO,AND,"SE ",GOO,"HE ",O T,A T,IZZ,E P," TH",EED,": F",EXT
  43. 43 DATA **N,".  ",IDE," GU",THE,"AT ","CK ",RMI,CCO,O M,S T,ENT,TEM,STA,"TA "
  44. 44 DATA " DA"," OR",AGE,NGU," LA",BLY,SEM," AS",END,"  S","SE:",GOO,THE,"OR "
  45. 45 DATA S F,RAM,ROG,R P," FO",OPE,VEL," EN",SED,RES,ADD,LF-," SE",PED,TAM,A S
  46. 46 DATA "ND ",S A,RAM,ROG,E P,OOS,P G,SWA
  47.